home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
nvnqwk01.zip
/
POSTONL.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-06-02
|
3KB
|
93 lines
@echo off
REM
REM 1% = QWK Packet name
REM 2% = QWK Path
REM 3% = REP Path
REM 4% = WORK Path
REM 5% = QWK archive level
REM 6% = REP archive level
echo .
echo ... Executing POSTONL.BAT
echo .
rem
if NOT exist %2%1.QWK goto A10
rem
if NOT %5.==9. goto A1
if exist %2%1.QW8 copy %2%1.QW8 %2%1.QW9
if exist %2%1.QW7 copy %2%1.QW7 %2%1.QW8
if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A1
if NOT %5.==8. goto A2
if exist %2%1.QW7 copy %2%1.QW7 %2%1.QW8
if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A2
if NOT %5.==7. goto A3
if exist %2%1.QW6 copy %2%1.QW6 %2%1.QW7
if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A3
if NOT %5.==6. goto A4
if exist %2%1.QW5 copy %2%1.QW5 %2%1.QW6
if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A4
if NOT %5.==5. goto A5
if exist %2%1.QW4 copy %2%1.QW4 %2%1.QW5
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A5
if NOT %5.==4. goto A6
if exist %2%1.QW3 copy %2%1.QW3 %2%1.QW4
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A6
if NOT %5.==3. goto A7
if exist %2%1.QW2 copy %2%1.QW2 %2%1.QW3
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A7
if NOT %5.==2. goto A8
if exist %2%1.QW1 copy %2%1.QW1 %2%1.QW2
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A8
if NOT %5.==1. goto A10
if exist %2%1.QWK copy %2%1.QWK %2%1.QW1
goto A10
:A10
if exist %2%1.QWK erase %2%1.QWK
PKZIP %2%1.QWK %4*.*
if exist %4*.dat erase %4*.dat
if exist %4*.ndx erase %4*.ndx
if exist %4news erase %4news
:DONE